home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / mac / 3-Presentations / Apple Demos / CPUs / Macintosh Solutions Demo / Macintosh Solutions 1.0 / background_4734.txt < prev    next >
Text File  |  1990-08-24  |  4KB  |  164 lines
  1. -- background: 4734 from stack: in.0
  2. -- bmap block id: 5283
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: User Analysis
  6. ----- HyperTalk script -----
  7. -- HANDLERS: putMeInList, getMeOutOfList, openCard, goSolution,
  8. --           determineSoftware, fixBox, showMyStuff, HideMyStuff
  9.  
  10. -- FUNCTIONS: whichItem, stripEmptyOnes
  11.  
  12. on putMeInList buttonName
  13.   global gSoftwareList
  14.   if gsoftwareList is empty then put "," into gSoftWareList
  15.   put buttonName  &  "," after gSoftwareList
  16. end putMeInList
  17.  
  18. on getMeOutOfList buttonName
  19.   global gSoftwareList
  20.   if buttonName is in gSoftwareList then DELETE item whichItem(gSoftwareList,buttonName) of gSoftwareList
  21. end getMeOutOfList
  22.  
  23. function whichItem theText,which
  24. return the number of items in char 1 to offset(which,theText) of theText
  25. end whichItem
  26.  
  27. on openCard
  28.   fixBox
  29. end openCard
  30.  
  31. on goSolution whichCategory,whichSolution
  32.   put "SOL" & whichCategory & whichSolution into cardName
  33.   go card cardName
  34. end goSolution
  35.  
  36. on determineSoftware
  37.   global gSoftwareList,InstoreReturnPath
  38.   put the short name of this cd into InstoreReturnPath
  39.   put "," into gSoftwareList
  40.   repeat with i = 2 to the number of btns -- solution btn is button 1
  41.     set cursor to busy
  42.     if the hilight of btn i then
  43.       put the short name of btn i after gSoftwareList
  44.       put "," after gSoftwareList
  45.     end if
  46.   end repeat
  47.   --delete last char of gSoftwareList -- kill final ","
  48. end determineSoftware
  49.  
  50. on fixBox
  51.   global gSoftWareList
  52.   --if gSoftWareList is empty OR gSoftwareList is "," then exit fixBox
  53.   repeat with x = 2 to the number of cd btns
  54.     set the hilite of cd btn x to ","&the short name of cd btn x&"," is in gSoftWareList
  55.   end repeat
  56. end fixBox
  57.  
  58. function stripEmptyOnes list
  59. put "," into holder
  60. repeat with i = 1 to the number of items in list
  61.   set cursor to busy
  62.   if item i of list is not empty then
  63.     put item i of list after holder
  64.     put "," after holder
  65.   end if
  66. end repeat
  67. return holder
  68. end stripEmptyOnes
  69.  
  70. on showMyStuff
  71.   repeat with i = 1 to 7
  72.     set cursor to busy
  73.     do "show card field" && i
  74.   end repeat
  75.   exit to HyperCard
  76. end showMyStuff
  77.  
  78. on hideMyStuff
  79.   repeat with i = 1 to 7
  80.     set cursor to busy
  81.     do "hide card field" && i
  82.   end repeat
  83. end hideMyStuff
  84.  
  85.  
  86. -- part 1 (field)
  87. -- low flags: 80
  88. -- high flags: 0002
  89. -- rect: left=0 top=0 right=28 bottom=512
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 0
  93. -- font id: 156
  94. -- text size: 18
  95. -- style flags: 0
  96. -- line height: 22
  97. -- part name: Title
  98.  
  99.  
  100. -- part 3 (field)
  101. -- low flags: 81
  102. -- high flags: 0000
  103. -- rect: left=11 top=304 right=329 bottom=46
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 0
  107. -- font id: 3
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: index
  112.  
  113.  
  114. -- part 5 (button)
  115. -- low flags: 00
  116. -- high flags: C002
  117. -- rect: left=0 top=325 right=342 bottom=171
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: Return to Main Menu
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   go card "Main menu"
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 7 (field)
  134. -- low flags: 01
  135. -- high flags: 0000
  136. -- rect: left=14 top=76 right=139 bottom=297
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 0
  140. -- font id: 156
  141. -- text size: 16
  142. -- style flags: 0
  143. -- line height: 18
  144. -- part name: Instructions
  145.  
  146.  
  147. -- part 10 (button)
  148. -- low flags: 00
  149. -- high flags: C002
  150. -- rect: left=172 top=325 right=342 bottom=384
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 0 / 0
  153. -- text alignment: 1
  154. -- font id: 0
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: Return to Previous Screen
  159. ----- HyperTalk script -----
  160. on mouseUp
  161.   goSubMenu (char 4 of short name of this card)
  162. end mouseUp
  163.  
  164.